home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / emulation / coolness / install < prev    next >
Text File  |  1999-04-28  |  12KB  |  347 lines
  1. ; .--------------------------------------------------.
  2. ; |          Install script by Tomas Amsrud          |
  3. ; |                                                  |
  4. ; |       CoolNESs is Copyright©Fredrik Olsson       |
  5. ; |    Send Translations to me at: gdwarf@usa.net    |
  6. ; `--------------------------------------------------'
  7. ; $VER: CoolNESs Installer V1.1 (1999-02-04)
  8.  
  9. ;***************************************************************************
  10. ;*** Something Default
  11. ;***************************************************************************
  12.  
  13. (set @default-dest "")
  14. (set emunam "CoolNESs")        ; Name of Program to Install
  15. (set emuver "0.75")            ; Emulator Version
  16. (set insver "1.1")            ; Install Script Version
  17. (set emuaut "Fredrik Olsson")    ; Emulator Author
  18. (set insaut "Tomas Amsrud")    ; Install Script Maker
  19.  
  20. (set @filee 0)
  21.  
  22. ;***************************************************************************
  23. ;*** Choose Language
  24. ;***************************************************************************
  25.  
  26. ;*****************
  27. ;**** ENGLISH ****
  28. ;*****************
  29. (set #about (cat "Welcome to the Installation of " emunam " v" emuver "\n" emunam " is ©" emuaut "\nInstallation script v" insver "\nby " insaut))
  30. (set #where (cat "\nWhere do you want to install " emunam "? (A drawer will be created)"))
  31. (set #whaticon   "\nWhat kind of Icons do you want to install?")
  32. (set #advanced (cat "You have already installed a version of " emunam " in that drawer.\nWhat do you want to do?"))
  33. (set #lowtech (cat "You need at least AGA, a 68020\nand AmigaOS 3.0 to run " emunam " !\n\n"))
  34. (set #installing "Installing ")
  35. (set #filecopy   ". .. ....Copying Files.... .. .")
  36. (set #doccopy    ". .. ....Copying Docs.... .. .")
  37. (set #packicons  ". .. ....Un-Packing Icons.... .. .")
  38. (set #copyicons  ". .. ....Copying Icons.... .. .")
  39. (set #cleanup    ". .. ....Cleaning Up.... .. .")
  40.  
  41. ;*****************
  42. ;**** German  **** 'German' Translation done by Richard Körber
  43. ;*****************
  44. (if (= @language "german")
  45. ((set #about (cat "Willkommen zu der\n\nInstallation von " emunam " V" emuver "\n" emunam " ist ©" emuaut "\n\nInstaller-Skript V" insver "\nvon " insaut "\n\nDeutsche Übersetzung von Richard Körber"))
  46.  (set #where (cat "\nWohin soll " emunam " installiert werden? (Verzeichnis wird angelegt)"))
  47.  (set #whaticon   "\nWelche Piktogramme möchten Sie installieren?")
  48.  (set #installing "Installieren ")
  49.  (set #filecopy   ". .. ....Kopiere Dateien.... .. .")
  50.  (set #doccopy    ". .. ....Kopiere Anleitungen.... .. .")
  51.  (set #packicons  ". .. ....Entpacke Piktogramme.... .. .")
  52.  (set #copyicons  ". .. ....Kopiere Piktogramme.... .. .")
  53.  (set #cleanup    ". .. ....Räume auf.... .. .")
  54. ))
  55.  
  56. ;*****************
  57. ;**** French  **** French translation made by Pascal Willano
  58. ;*****************
  59. (if (= @language "français")
  60. ((set #about (cat "Bienvenu à\n\nl'installation d'" emunam " v" emuver "\n" emunam " est ©" emuaut "\n\nScript d'installation v" insver "\nby " insaut "\n\nTraduit en Français par Pascal WILLANO"))
  61.  (set #where (cat "\nOù voulez vous installer " emunam "? (Un répertoire sera créé)"))
  62.  (set #whaticon   "\nQuel type d'icônes voulez vous installer?")
  63.  (set #installing "Installer ")
  64.  (set #filecopy   ". .. ....Copie des fichiers.... .. .")
  65.  (set #doccopy    ". .. ....Copie de la Documention.... .. .")
  66.  (set #packicons  ". .. ....Decompression des icônes.... .. .")
  67.  (set #copyicons  ". .. ....Copie des icônes.... .. .")
  68.  (set #cleanup    ". .. ....Nétoyage.... .. .")
  69. ))
  70.  
  71. ;*****************
  72. ;**** Italian **** Italian Translation done by Simone Bevilacqua
  73. ;*****************
  74. (if (= @language "italiano")
  75. ((set #about (cat "Benvenuto\n\nal programma di installazione di " emunam " v" emuver "\n" emunam " e' ©" emuaut "\n\nScript di installazione v" insver "\ndi " insaut "\n\nTraduzione Italiana di Simone Bevilacqua"))
  76.  (set #where (cat "\nDove vuoi che " emunam " sia installato? (verra' creata un' apposita directory)"))
  77.  (set #whaticon   "\nChe tipo di icone vuoi installare?")
  78.  (set #installing "Installare ")
  79.  (set #filecopy   ". .. ....Copia files in corso.... .. .")
  80.  (set #doccopy    ". .. ....Copia documentazione in corso.... .. .")
  81.  (set #packicons  ". .. ....Decompressione icone in corso.... .. .")
  82.  (set #copyicons  ". .. ....Copia icone in corso.... .. .")
  83.  (set #cleanup    ". .. ....Eliminazione file temporanei.... .. .")
  84. ))
  85.  
  86. ;*****************
  87. ;**** Español **** By Juan Antonio Gómez
  88. ;*****************
  89. (if (= @language "española")
  90. ((set #about (cat "Bienvenido al\n\nInstalador de " emunam " v" emuver "\n" emunam " es ©" emuaut "\n\nScript de Instalación v" insver " by " insaut "\n\nTraducción Española por Juan Antonio Gómez"))
  91.  (set #where (cat "\n¿Donde quiere instalar " emunam "? (Un directorio será creado)"))
  92.  (set #whaticon   "\n¿Que tipo de iconos quiere instalar?")
  93.  (set #installing "Instalar ")
  94.  (set #filecopy   ". .. ....Copiando Ficheros.... .. .")
  95.  (set #doccopy    ". .. ....Copiando Documentación.... .. .")
  96.  (set #packicons  ". .. ....Descomprimiendo Iconos.... .. .")
  97.  (set #copyicons  ". .. ....Copiando Iconos.... .. .")
  98.  (set #cleanup    ". .. ....Borrando.... .. .")
  99. ))
  100.  
  101. ;*****************
  102. ;**** Sweden  **** By Fredrik Olsson (flubba@hem2.passagen.se).
  103. ;*****************
  104. (if (= @language "svenska")
  105. ((set #about (cat "Välkommen till " emunam " v" emuver " installationsprogram\n" emunam " är ©" emuaut "\nInstallations skript v" insver " av " insaut "\nSvensk översättning gjord av Fredrik Olsson"))
  106.  (set #where (cat "\nVar vill du installera " emunam "? (En katalog kommer att skapas)"))
  107.  (set #whaticon   "\nVilken slags ikoner vill du installera?")
  108.  (set #installing "Installerar ")
  109.  (set #filecopy   ". .. ....Kopierar Filer.... .. .")
  110.  (set #doccopy    ". .. ....Kopierar Dokumentation.... .. .")
  111.  (set #packicons  ". .. ....Packar upp Ikoner.... .. .")
  112.  (set #copyicons  ". .. ....Kopierar Ikoner.... .. .")
  113.  (set #cleanup    ". .. ....Städar Upp.... .. .")
  114. ))
  115.  
  116. ;*****************
  117. ;****  Norsk  **** By Tomas Amsrud (gdwarf@usa.net)
  118. ;*****************
  119. (if (= @language "norsk")
  120. ((set #about (cat "Velkommen til Instaleringen av " emunam " v" emuver "\n" emunam " er ©" emuaut "\nInstalasjon script v" insver " av " insaut "\nNorsk oversetting av " insaut))
  121.  (set #where (cat "\nHvor vil du instalere " emunam "? (En katalog vil bli lagd)"))
  122.  (set #whaticon   "\nHva slags iconer vil du Instalere?")
  123.  (set #advanced (cat "Du har alerede instalert en version av " emunam " in den catalogen.\nHva vil du gjøre?"))
  124.  (set #lowtech (cat "For a kjøre " emunam " må du ha AGA,\n en 68020 og AmigaOS 3.0!\n\n"))
  125.  (set #installing "Installerer ")
  126.  (set #filecopy   ". .. ....Kopierer Filer.... .. .")
  127.  (set #doccopy    ". .. ....Kopierer Dokumentasjon.... .. .")
  128.  (set #packicons  ". .. ....PakkerOpp Iconer.... .. .")
  129.  (set #copyicons  ". .. ....Kopierer Iconer.... .. .")
  130.  (set #cleanup    ". .. ....Rydder Opp.... .. .")
  131. ))
  132.  
  133. ;*****************
  134. ;****  Dutch  **** Dutch Translation done by Roderick Mouthaan.
  135. ;*****************
  136. (if (= @language "dutch")
  137. ((set #about (cat "Welkom bij de\n\nInstallatie van " emunam " v"emuver "\n" emunam " is ©" emuaut "\n\nInstallatie script v" insver "\ndoor " insaut "\n\nNederlandse vertaling door Roderick Mouthaan"))
  138.  (set #where (cat "\nWaar wil je " emunam " installeren? (Een lade zalgecreëerd worden)"))
  139.  (set #whaticon   "\nWelk type icons wil je installeren?")
  140.  (set #installing "Installeren ")
  141.  (set #filecopy   ". .. ....Kopiëren van bestanden.... .. .")
  142.  (set #doccopy    ". .. ....Kopiëren van documentatie.... .. .")
  143.  (set #packicons  ". .. ....Uitpakken van icons.... .. .")
  144.  (set #copyicons  ". .. ....Kopiëren van icons.... .. .")
  145.  (set #cleanup    ". .. ....Opruimen.... .. .")
  146. ))
  147.  
  148. ;*****************
  149. ;****  Suomi  **** Suomi Translation done by ???.
  150. ;*****************
  151. (if (= @language "suomi")
  152. ((set #about (cat "Hyve! " emunam " v"emuver "\n" emunam " is ©" emuaut "\n\nInstallation script v" insver "\nby " insaut "\n\nPlease send a Suomi Translation to me!"))
  153.  (set #installing "Assenan ")
  154. ))
  155.  
  156.  
  157. ;***************************************************************************
  158. ;*** Install part
  159. ;***************************************************************************
  160.  
  161. (complete 0)
  162. ;Check if tere is a 020 or better.
  163. (if (patmatch "68000" (database "cpu"))
  164.   (abort #lowtech))
  165. (if (patmatch "68010" (database "cpu"))
  166.   (abort #lowtech))
  167.  
  168. (complete 1)
  169. ;Check if tere is AGA.
  170. (if (<> (patmatch "AA" (database "chiprev")))
  171.   (abort #lowtech))
  172.  
  173. (complete 2)
  174. ;Check OS version
  175. (set #OS_VER (/ (getversion) 65536) )
  176. (if(< #OS_VER 39)
  177.   (abort #lowtech))
  178.  
  179. (complete 5)
  180. (welcome #about)
  181.  
  182. ;**********************
  183. ;*** Ask for dir
  184. ;**********************
  185.  
  186. (complete 10)
  187. (set dester (askdir (prompt #where) (help @askdir-help) (default @default-dest)))
  188. (set nesdest (tackon dester "CoolNESs"))
  189. (set @default-dest nesdest)
  190.  
  191. (if (= (exists (@default-dest) (noreq)) 2)
  192.     (set @dire 1)
  193.     (set @dire 0)
  194. )
  195.  
  196. ;**********************
  197. ;*** Advanced options
  198. ;**********************
  199.  
  200. (if (AND (= @user-level 2) (= @dire 1)) (
  201.     (complete 15)
  202.     (set ScrOpt
  203.         (askoptions
  204.             (help @askoptions-help)
  205.             (prompt #advanced)
  206.             (choices "Re-Install the Icons!" "Make backup of old CoolNESs version!")
  207.         )
  208.     )
  209.     (if (OR (= ScrOpt 1) (= ScrOpt 3)) (set @dire 0))
  210.     (if (OR (= ScrOpt 2) (= ScrOpt 3)) (
  211.         (if (= (exists ("%s/CoolNESs" @default-dest) (noreq)) 1)
  212.             (set @filee 1)
  213.         )
  214.     ))
  215. ))
  216.  
  217. ;**********************
  218. ;*** Ask for Icons
  219. ;**********************
  220.  
  221. (complete 20)
  222. (if (= @dire 0)
  223. (
  224.  
  225.   (set #icon 0)
  226.   (if (<> (getenv "MagicWB") "") (set #icon 2))
  227.   (if (> (getversion "LIBS:newicon.library") (* 5 65536)) (set #icon 5))
  228.  
  229.   (set ScrOpt
  230.     (askchoice (prompt #whaticon)
  231.         (help @askchoise-help)
  232.         (choices "Normal" "SmalBench" "MagicWB1 - Normal MagicWB" "MagicWB2 - CoolNESs Logo" "MagicWB3 - NoBorder Icon" "New Icon")
  233.         (default #icon)
  234.     )
  235.   )
  236.  
  237.   (if (= ScrOpt 0) (set coolicon "Normal"))
  238.   (if (= ScrOpt 1) (set coolicon "SmalBench"))
  239.   (if (= ScrOpt 2) (set coolicon "MagicWB1"))
  240.   (if (= ScrOpt 3) (set coolicon "MagicWB2"))
  241.   (if (= ScrOpt 4) (set coolicon "MagicWB3"))
  242.   (if (= ScrOpt 5) (set coolicon "NewIcon"))
  243.  
  244. ))
  245.  
  246. ;***************************************************************************
  247. ;*** Copying files
  248. ;***************************************************************************
  249.  
  250. (complete 30)
  251. (copylib
  252.     (help @copylib-help)
  253.     (source "tabs.gadget")
  254.     (dest "SYS:Classes/Gadgets")
  255.     (Prompt #installing "tabs.gadget")
  256.     (confirm)
  257. )
  258.  
  259. (complete 40)
  260. (working #filecopy)
  261.  
  262. (if (= @filee 1) (rename ("%s/CoolNESs" @default-dest) ("%s/CoolNESs.old" @default-dest)))
  263.  
  264. (complete 42)
  265. (copyfiles
  266.     (source "CoolNESs")
  267.     (dest nesdest)
  268. )
  269. (complete 44)
  270. (copyfiles
  271.     (source "NewKeys.iff")
  272.     (dest nesdest)
  273. )
  274. (complete 46)
  275. (copyfiles
  276.     (source "gadgets.readme")
  277.     (dest nesdest)
  278. )
  279. (complete 48)
  280. (copyfiles
  281.     (source "Roms.info")
  282.     (dest nesdest)
  283. )
  284. (complete 50)
  285. (copyfiles
  286.     (source "Roms")
  287.     (dest ("%s/Roms" nesdest))
  288.     (all)
  289. )
  290. (complete 52)
  291. (copyfiles
  292.     (source "Palettes")
  293.     (dest ("%s/Palettes" nesdest))
  294.     (all)
  295. )
  296. (complete 54)
  297. (copyfiles
  298.     (source "Docs/NES_Colours.IFF")
  299.     (dest nesdest)
  300. )
  301.  
  302. ;***************************************************************************
  303. ;*** Copying Icons
  304. ;***************************************************************************
  305.  
  306. (complete 60)
  307. (if (= @dire 0)
  308. (    (working #copyicons)
  309.     (copyfiles
  310.         (source ("Icons/%s" coolicon))
  311.         (dest nesdest)
  312.         (all)
  313.     )
  314.     (copyfiles
  315.         (source ("Icons/%s.info" coolicon))
  316.         (dest dester)
  317.         (newname "CoolNESs.info")
  318.     )
  319. ))
  320.  
  321. ;***************************************************************************
  322. ;*** Copying docs
  323. ;***************************************************************************
  324.  
  325. (complete 80)
  326. (working #doccopy)
  327. (if (= (exists ("Docs/%s.guide" @language) (noreq)) 1)
  328.     (copyfiles
  329.         (source ("Docs/%s.guide" @language))
  330.         (dest nesdest)
  331.         (newname "CoolNESs.guide")
  332.     )
  333.     (copyfiles
  334.         (source ("Docs/CoolNESs.guide"))
  335.         (dest nesdest)
  336.     )
  337. )
  338.  
  339. ;***************************************************************************
  340. ;*** Clean up Part
  341. ;***************************************************************************
  342. (complete 90)
  343. (working #cleanup)
  344.  
  345. (complete 100)
  346. (Exit)
  347.